home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 4-New Product Intro / Macintosh Demos / Mac IIsi-A Closer Look / Mac IIsi-A Closer Look . . / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1990-12-12  |  12.4 KB  |  80 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in. </name>
  5.     <id>-1</id>
  6.     <cardCount>53</cardCount>
  7.     <cardID>23571</cardID>
  8.     <listID>19505</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû
  17. A Closer Look at Your Macintosh IIsi
  18. Version 1.0
  19. ¬©Copyright 1990 by Apple Computer, Inc.
  20. All Rights Reserved
  21.  
  22. created by Kathie Blair, Elizabeth Boling, Pat Chaney, Eli Cochran,
  23. Mimi Doggett, Rob Fulop, Stella Hackell, Avril Hodges, Channing Hughes,
  24. Jeremy Hughes, James Miyake, John Powers, Susan Razura, and Luann Rugebregt
  25.  
  26. HANDLERS USED IN THIS SCRIPT:
  27. openStack, resumeStack, closeStack, suspendStack, goPrevious, goNext,
  28. quit, goThere, btnHilite, playSound, sectionOpening, setSectionOpening,
  29. informUser, limitHCMenus, aboutThisStack
  30.  
  31. FUNCTIONS USED IN THIS SCRIPT:
  32. stackIsBeingUsed -- "true" if this stack is in use by the active stack
  33.  
  34. XCMD'S USED BY THIS SCRIPT:
  35. sysEnv XFCN  ¬©1988, 1989, 1990 by Apple Computer, Inc.
  36.  
  37. GLOBAL VARIABLES USED BY THIS STACK:
  38. aCloserLookGlobal -- "checked" if the system version has been verified
  39.  
  40. -- ‚àÜ This symbol indicates an area that requires localization for
  41. non english speaking countries.
  42.  
  43. Stack requires system software version 6.0.6 to play compressed sounds.
  44. ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû
  45. on domenu menu                       --// Added by Medior, Inc. 12/12/90
  46. global RPStackName
  47. if menu is in "Home,Quit HyperCard" and RPStackName is not empty then
  48. set cursor to watch
  49. put RPStackName into shortName
  50. repeat until offset(":",shortName) = 0
  51. delete char 1 to offset(":",shortName) of shortName
  52. end repeat
  53. delete last char of shortName
  54. answer "This will return to "&shortName&"." with "Cancel" or "OK"
  55. if it is "Cancel" then exit domenu
  56. set cursor to watch
  57. lock screen
  58. go RPStackName
  59. unlock screen with dissolve fast
  60. exit domenu
  61. else pass doMenu
  62. end domenu
  63.  
  64. on openStack -- ‚àÜ
  65. global aCloserLookGlobal
  66. if stackIsBeingUsed() then pass openStack
  67. hide menuBar -- for use of the full menuBar, remove this line
  68. limitHCmenus -- for full menus, remove this line here & in resumeStack
  69. -- This stack requires system version 6.0.6 or later
  70. -- HyperCard 2.0 requires system version 6.0.5 or later
  71. -- so the only system software we need to check for is 6.0.5
  72. if aCloserLookGlobal is empty then  -- if not "checked" then do it
  73. if item 2 of line 1 of SysEnv() is "6.0.5" then informUser
  74. put "Checked" into aCloserLookGlobal
  75. end if
  76. pass openStack
  77. end openStack
  78.  
  79. on resumeStack
  80. if stackIsBeingUsed() then pass resumeStack
  81. hide menuBar -- for use of the full menuBar, remove this line
  82. limitHCmenus -- for full menus, remove this line here & in openStack
  83. pass resumeStack
  84. end resumeStack
  85.  
  86. on suspendStack
  87. if stackIsBeingUsed() then pass suspendStack
  88. show menuBar
  89. reset menuBar
  90. pass suspendStack
  91. end suspendStack
  92.  
  93. on closeStack
  94. global aCloserLookGlobal
  95. if stackIsBeingUsed() then pass closeStack
  96. put empty into aCloserLookGlobal
  97. show menuBar
  98. reset menuBar
  99. pass closeStack
  100. end closeStack
  101.  
  102. on informUser -- ‚àÜ
  103. answer "Your Macintosh is using system software version 6.0.5." &¬¨
  104. return & "To hear the sounds on this disk" &&¬¨
  105. "you must have version 6.0.6 or later, available from your Apple" &&¬¨
  106. "dealer or Macintosh user group." with "Quit" or "Continue" -- ‚àÜ
  107. if it is "Continue" then send introAnimation to card 1 -- ‚àÜ
  108. else doMenu "Quit HyperCard" -- ‚àÜ
  109. end informUser
  110.  
  111. on limitHCMenus -- ‚àÜ
  112. -- limiting the menus is to simplify the first time user‚Äôs experiance
  113. -- for full menus, remove this handler and line 4 of both the
  114. -- openStack and resumeStack handlers
  115. delete menu "Style"
  116. delete menu "Font"
  117. delete menu "Objects"
  118. delete menu "Tools"
  119. if the userlevel > 2 then put 15 into maxNum
  120. else put 9 into maxNum
  121. repeat with itemNum = maxNum down to 7
  122. delete menuItem itemNum of menu "Edit"
  123. end repeat
  124. set the commandChar of menuItem "Recent" of menu "Go" to empty
  125. set the name of menuItem "About HyperCard..." of menu APPLE to¬¨
  126. "About A Closer Look..."
  127. set the menuMessage of menuItem "About A Closer Look..." of¬¨
  128. menu APPLE to "aboutThisStack"
  129. end limitHCMenus
  130.  
  131. on aboutThisStack -- ‚àÜ
  132. answer "        A Closer Look at Your Macintosh IIsi" &¬¨
  133. return & "                ¬©1990 Apple Computer, Inc." & return
  134. end aboutThisStack
  135.  
  136. on goPrevious
  137. visual effect dissolve
  138. go prev card
  139. end goPrevious
  140.  
  141. on goNext
  142. visual effect dissolve
  143. go next card
  144. end goNext
  145.  
  146. function stackIsBeingUsed
  147. -- if this stack is being used by the active stack then return true
  148. if the name of this stack is the name of me then return false
  149. else return true
  150. end stackIsBeingUsed
  151.  
  152. on btnHilite
  153. put the short name of the target & ".Btn" into otherBtn
  154. set the hilite of card btn otherBtn to true
  155. repeat until the mouse is "Up"
  156. if the mouseLoc is within the rect of the target OR¬¨
  157. the mouseLoc is within the rect of card btn otherBtn then
  158. set the hilite of card btn otherBtn to true
  159. else set the hilite of card btn otherBtn to false
  160. end repeat
  161. if the hilite of card btn otherBtn is true then
  162. set the hilite of card btn otherBtn to false
  163. send mouseUp to card btn otherBtn
  164. end if
  165. end btnHilite
  166.  
  167. on quit
  168. visual effect dissolve
  169. go to card "Copyright Info"
  170. set cursor to watch
  171. wait 3 seconds
  172. doMenu "Quit HyperCard"
  173. end quit
  174.  
  175. on playSound sndName, interruptable
  176. -- handler allow the interruption of sounds with a mouseClick
  177. set cursor to watch
  178. play sndName
  179. if interruptable is "true" then
  180. repeat until (the mouseClick) OR (the sound is DONE)
  181. if the mouseClick then
  182. play stop
  183. click at the clickLoc -- pass the mouseClick
  184. end if
  185. end repeat
  186. else wait until the sound is "done"
  187. end playSound
  188.  
  189. ‚àû‚àû ANIMATION HANDLERS USED BY THE OPENING BACKGROUND OF EACH SUBTOPIC ‚àû‚àû
  190.  
  191. on sectionOpening
  192. set the cursor to none
  193. unlock screen with dissolve
  194. put the script of card btn "picture mask" into btnMarks
  195. repeat with stepNum = 2 to the number of lines in btnMarks
  196. lock screen
  197. set the left of card btn "picture mask" to line stepNum of btnMarks
  198. unlock screen with dissolve
  199. end repeat
  200. lock screen
  201. hide card btn "picture mask"
  202. unlock screen with dissolve
  203. lock screen
  204. hide card btn "nav mask"
  205. hide card btn "text mask"
  206. unlock screen with dissolve
  207. set the left of card btn "picture mask" to line 1 of btnMarks
  208. end sectionOpening
  209.  
  210. on goThere where -- used by the subTopic menu buttons
  211. visual effect dissolve fast
  212. go to card where
  213. end goThere
  214.  
  215. on setSectionOpening
  216. show card btn "picture mask"
  217. show card btn "nav mask"
  218. show card btn "text mask"
  219. end setSectionOpening
  220.  
  221. ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû</script>
  222.     <background id="2784" file="background_2784.xml" name="opening closing" />
  223.     <background id="3619" file="background_3619.xml" name="More About Sound" />
  224.     <background id="4885" file="background_4885.xml" name="Expansion Options" />
  225.     <background id="6620" file="background_6620.xml" name="monitor return" />
  226.     <background id="9433" file="background_9433.xml" name="basic continue" />
  227.     <background id="9641" file="background_9641.xml" name="main menu bkgnd" />
  228.     <background id="11650" file="background_11650.xml" name="basic return" />
  229.     <background id="15041" file="background_15041.xml" name="About Video" />
  230.     <background id="42598" file="background_42598.xml" name="Sound Basics" />
  231.     <card id="23571" file="card_23571.xml" marked="true" name="first card" owner="2784" />
  232.     <card id="4436" file="card_4436.xml" marked="false" name="Blank" owner="2784" />
  233.     <card id="4780" file="card_4780.xml" marked="false" name="" owner="2784" />
  234.     <card id="16721" file="card_16721.xml" marked="false" name="" owner="2784" />
  235.     <card id="29149" file="card_29149.xml" marked="false" name="" owner="2784" />
  236.     <card id="29561" file="card_29561.xml" marked="false" name="" owner="2784" />
  237.     <card id="30145" file="card_30145.xml" marked="false" name="" owner="2784" />
  238.     <card id="30660" file="card_30660.xml" marked="false" name="" owner="2784" />
  239.     <card id="31127" file="card_31127.xml" marked="false" name="" owner="2784" />
  240.     <card id="31630" file="card_31630.xml" marked="false" name="" owner="2784" />
  241.     <card id="7831" file="card_7831.xml" marked="false" name="Using This Disk" owner="9641" />
  242.     <card id="43662" file="card_43662.xml" marked="false" name="Main Topics" owner="9641" />
  243.     <card id="41614" file="card_41614.xml" marked="false" name="begin.Sound Basics" owner="42598" />
  244.     <card id="3443" file="card_3443.xml" marked="false" name="" owner="42598" />
  245.     <card id="4067" file="card_4067.xml" marked="false" name="Sound Basics.Menu" owner="42598" />
  246.     <card id="7156" file="card_7156.xml" marked="false" name="Sound Basics,Dimension" owner="11650" />
  247.     <card id="10916" file="card_10916.xml" marked="false" name="Communication" owner="9433" />
  248.     <card id="18796" file="card_18796.xml" marked="false" name="Sound Basics" owner="11650" />
  249.     <card id="8011" file="card_8011.xml" marked="false" name="Presentation" owner="9433" />
  250.     <card id="24895" file="card_24895.xml" marked="false" name="Sound Basics" owner="11650" />
  251.     <card id="16964" file="card_16964.xml" marked="false" name="Learning" owner="9433" />
  252.     <card id="38939" file="card_38939.xml" marked="false" name="Sound Basics,Middle English" owner="11650" />
  253.     <card id="2084" file="card_2084.xml" marked="false" name="begin.More About Sound" owner="3619" />
  254.     <card id="18654" file="card_18654.xml" marked="false" name="" owner="3619" />
  255.     <card id="18982" file="card_18982.xml" marked="false" name="More About Sound.Menu" owner="3619" />
  256.     <card id="20057" file="card_20057.xml" marked="false" name="More About Sound,Hardware" owner="11650" />
  257.     <card id="21693" file="card_21693.xml" marked="false" name="More About Sound,Recording" owner="11650" />
  258.     <card id="22199" file="card_22199.xml" marked="false" name="More About Sound,Sound" owner="11650" />
  259.     <card id="17815" file="card_17815.xml" marked="false" name="Audio" owner="9433" />
  260.     <card id="13227" file="card_13227.xml" marked="false" name="More About Sound" owner="11650" />
  261.     <card id="23506" file="card_23506.xml" marked="false" name="Begin.About Video" owner="15041" />
  262.     <card id="3298" file="card_3298.xml" marked="false" name="" owner="15041" />
  263.     <card id="14245" file="card_14245.xml" marked="false" name="About Video.Menu" owner="15041" />
  264.     <card id="2449" file="card_2449.xml" marked="false" name="About Video,RGB" owner="6620" />
  265.     <card id="8840" file="card_8840.xml" marked="false" name="About Video,Portrait" owner="6620" />
  266.     <card id="12794" file="card_12794.xml" marked="false" name="About Video,Mai Tai" owner="6620" />
  267.     <card id="14374" file="card_14374.xml" marked="false" name="About Video,Black Label" owner="6620" />
  268.     <card id="17472" file="card_17472.xml" marked="false" name="Performance" owner="9433" />
  269.     <card id="12241" file="card_12241.xml" marked="false" name="About Video" owner="11650" />
  270.     <card id="21355" file="card_21355.xml" marked="false" name="Begin.Expansion Options" owner="4885" />
  271.     <card id="2855" file="card_2855.xml" marked="false" name="Expansion Options.Menu" owner="4885" />
  272.     <card id="10070" file="card_10070.xml" marked="false" name="Networks" owner="9433" />
  273.     <card id="15683" file="card_15683.xml" marked="false" name="Expansion Options" owner="11650" />
  274.     <card id="22413" file="card_22413.xml" marked="false" name="Expansion Performance" owner="9433" />
  275.     <card id="23942" file="card_23942.xml" marked="false" name="Expansion Options" owner="11650" />
  276.     <card id="24702" file="card_24702.xml" marked="false" name="Peripherals" owner="9433" />
  277.     <card id="25736" file="card_25736.xml" marked="false" name="" owner="9433" />
  278.     <card id="26530" file="card_26530.xml" marked="false" name="Expansion Options" owner="11650" />
  279.     <card id="27080" file="card_27080.xml" marked="false" name="Cards" owner="9433" />
  280.     <card id="26195" file="card_26195.xml" marked="false" name="" owner="9433" />
  281.     <card id="28449" file="card_28449.xml" marked="false" name="Expansion Options" owner="11650" />
  282.     <card id="5260" file="card_5260.xml" marked="false" name="Good Bye" owner="2784" />
  283.     <card id="9036" file="card_9036.xml" marked="false" name="Copyright Info" owner="2784" />
  284. </stack>
  285.